
Public Class AuthorSearch

    Public AuthorResults As List(Of TaxonNamesInterface.Author)

    Private Sub SearchButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchButton.Click
        Try

            AuthorResults = NamesClient.AuthorsInterfaceProxy.ListAuthors(searchText.Text, AnywhereCheck.Checked)

            ResultsGrid.DataSource = AuthorResults

            ResultsGrid.Columns("AuthorPk").ReadOnly = True
            ResultsGrid.Columns("CorrectAuthorFk").HeaderText = "Correct Author"

        Catch ex As Exception
            TaxonNamesInterface.NamesException.LogError(ex)
            MsgBox(ex.Message)
        End Try
    End Sub
End Class
